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3 1 001 ZTITLE ‘ED Tecan IR = look for a direction indicator’ 

3 ¢ 0 § MODULE EDTSCHMGDIR ( ! Look for a direction in 
3 ? Z jDEN NT = 'v04-000' ' File: CHMGDIR.B 
$ 2 Boe ! BEGIN 

: 4 0007 \ i eee eeeeeeeeeeeReeeReeeeeeeneneeeeeeeeeeeeeeeeeeeeneneeeneeeeneeeeeeeeeneeee 
3 Hl 

$ 4 0009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

; 10 0010 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

3 1} bat) : ‘* ALL RIGHTS RESERVED 

3 ig $018 1 Ie rs SOFTWARE IS a | ne UNDER A LICENSE AND MAY BE USED AND COPIED 
s 14 0014 1 I! Y IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
Ss TS 0015 1 !« ON ELUSION OF THE ABOVE COPYRIGHT NOTICE. THIS S R NY HE 
; B28 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
3 17 001 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
} 18 dt \ :* TRANSFERRED. 

3 !e 

; 20 0020 1 !« pe gt ae IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
: 21 0021 1 !« SHOUL NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
: $$ OSs ! be CORPORATION. 

5 ! 

; 624 Base 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
3 25 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

s 2 0026 1 !* 

cc- an 0027 1 !« 

$ 28 0028 1 eae eee eee RARER REAR EAE A RARER ERREEE EEE 
; 2 0029 1! 

; » 0030 1 

; si 0031 1 !+4+ 

: 32 itt) 1: FACILITY: EDT == The DEC Standard Editor 

> 0033 1! 

; * 0034 1 | ABSTRACT: 

2. 0035 1: é : 

3 3 boRS ! This module looks for an explicit direction indicator. 

3 4 4 ! ENVIRONMENT: Runs at any access mode - AST reentrant 

: re re \ AUTHOR: Bob Kushlis, CREATION DATE: Unknown 

3 42 004 1/ MODIFIED BY: 

: 43 0043 1} 

: 6 0044 1! 1-001 - Original. DJS 04-Feb-1981. y his module was created b 

; 645 0045 1! extracti ng the routine EDTS$CHK -DIR__ from module CHANGE.BLI. 

:; 646 BOss 1 ' 1-002 - Regularize headers. JBS 02-Mar-1981 

oor 0047 1 ! 1-003 - Correct the file name. JBS 11-Mar-1981 

3; 648 0048 1 | 1-004 - Add a return value to flag direction gr ebLt SMB 22-0ct-1981 
: «649 0049 1 ! 1-005 - Remove leading blank lLine--it confused + TTI, fous not converting 
. = 0050 1! the module rame to PDP-11 format. JBS 2 ag | 

: 32 0082 : i! -006 - Improve the appearance of the Listing. 5BS 15-Jun-1983 

2 0053 1 
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SBTTL ‘Declarations’ 
TABLE OF CONTENTS: 


REQUIRE ‘EDTSRC: TRAROUNAM' ; 


FORWARD ROUTINE 
EDTSS$CHK_DIR; 


INCLUDE FILES: 


REQUIRE ‘EDTSRC:EDTREQ'; 
' 


MACROS: 
NONE 

EQUATED SYMBOLS: 
NONE 

: OWN STORAGE: 

NONE 

EXTERNAL REFERENCES: 
: In the routine 


VAX=11 Bliss-3 
DISKSVMSMASTER 


2 V4. 
:CEDT 


! Determine the current direction 


7 
| 


0-74 Page 2) 
NSRCICHMGDIR.BLI:1°% (25 


10 
1 


$$G_DIR, 
EDTSSA_CMD_BUF ; ! Command string pointer 
IF (CHSRCHAR (.EDTSSA_CMD_BUF) EQL %C'-") 


EDTS$G_DIR = DIR_BACKWARD 
LSE 


re 
07 
IF (CHSRCHAR (.EDTSSA_CMD_BUF) EQL %C*+") 


EDT$$G_DIR = DIR_FORWARD 
ELSE 


iv 


'¢ 
! Special handling for cases where we want a count which is not preceded by a 
! *¢* or ‘=" to be flagged as ‘+’ rather than being left unchanged. 
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EDTSCHMGDIR EDTSCHMGDIR = Look for a direction indicator -Sep-1984 23:58:04 VAX-11 Bliss-32 V4.0-74 Page 

04 +600 EDTSSCHK_DIR = look for a direction indicator 12286071382 $3:33:95 DLSKSVMEMASTERSCEDT SRCSCHMGDIR.BLIs1 . (3) 

: 83 $08 | ZSBTTL ‘EDTSSCHK_DIR = Look for a direction indicator’ : 
: 4 ree } GLOBAL ROUTINE EDTSSCHK_DIR ! Look for a direction indicator ; 
; ¥ 6 ¢ 1 ; 
: 9 6 1 !e¢ 3 
$ Be o8e : FUNCTIONAL DESCRIPTION: : 
; #296 666 1! This Little routine looks for an explicit direction indicator (+ or -) and sets : 
2 667 1! EDT$$G_DIR accordingly. If no direction is seen, EDT$$G_DIR $ 
3 os pone ! is left unchanged. 3 
H 00 §e Q 1 ! FORMAL PARAMETERS: : 
; 101 0671 1! 3 
; 8g 0672 1! NONE | 3 
; 10 0675 1! 3 
> 104 0674 1 | IMPLICIT INPUTS: : 
: 105 0675 1! | 3 
; 106 0676 1! EDTS$A_CMD_BUF ; 
: 107 0677 1! 3 
: 08 0678 1 ! IMPLICIT OUTPUTS: : 
; 109 0679 1! $ 
; 110 0680 1! EDTS$G_DIR 3 
$s 111 0681 1! 3 
3 \¢ 0682 1 ! ROUTINE VALUE: 3 
3 1 0685 1! 3 
3 114 0684 1! Q - direction forward or explicitly set backward (with ‘-") ; 
s 95 0685 1! 1 = direction backward but not set explicitly $ 
3 16 0686 1! 3 
3 17 0687 1 ! SIDE EFFECTS: $ 
; 18 0688 1! 3 
3 19 0689 1! NONE F 
: 120 0690 1 | : 
s tei 0691 1 !-- 3 
3 $§ 0692 1 3 
: ve 069 BEGIN : 
> 126 0694 3 
; 125 0695 EXTERNAL 3 
3 $$ 0696 § EDT ' The current direction. ; 
> 128 ; 
3 $3 j | g 
3 0 3 
: Ht | : 
: 34 : 
3 34 3 
3: 135 : 
; «136 3 
3; ie : 
3 3 8 
; «WS 3 
$ 4 : 
: 4 3 
3 4 é 
: 4 : 
: 4 : 
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IF (.EDT$$G_DIR EQL DIR_BACKWARD) THEN RETURN (1) ELSE RETURN (0); 


SS . } 


EDTSCHMGDIR EDTSCHMGDIR = Look for a direction indicator 1.10 Sep-19 58:04 VAX-11 Bliss-32 V 4 
104~000 EDTSSCHK_DIR = look for a direction indicator 12280871388 $3:35:93 DISKSVMSMASTER: cto i SRCICHMGDIR. BLI; 439 * (3) 
145 0715 EDTS$A_CMD_BUF = CHSPLUS (.EDTSSA_CMD_BUF, 1); 
146 o7i6 ; RETURN (0)? oe a 
14 71 ND; ! of routine EDTSSCHK_DIR 


ndicator 
-IDENT \V04-000\ 
-EXTRN EDTS$G_DIR, EDTSSA_CMD_BUF 


| 
| 
| 
.TITLE EDTSCHMGDIR EDTSCHMGDIR = Look for a direction | 
} 
| 
.PSECT _EDTSCODE,NOWRT, SHR, PIC,2 | 


000¢ 00000 ENTRY EDISSCHK DIR. Save R2.R3 ; 0660 
53 000000006 00 9E 00002 HOVAB EDTS$A_CAD_BUF, RS ; 
32 000000006 09 96 0000 MOVAB EDISSC“DIRT RO” : 

: 63 BO 00019 MOVE” EDISSATCMD “BUF, RO 0699 
20 60 91 0001 CMPB (RO), B45 ~ : 
04 12 00016 BNEQ 18 : 

62 04 0001 CLRL  EDTS$6_DIR : 0701 
12 11 OOOIA BRB $ : 

28 60 91 O001C 18: CMPB (RO), #43 > 0704 
05 12 OOO1F BNEQ  2$ : 

62 01 DO 00021 MOVL #1, EDT$$G_DIR : 0706 
08 11 00024 BRB. «3S ; 

62 D5 00026 28: TSTL  EDTS$G_DIR : 0713 
06 12 000¢8 BNEG = 4$ ; 
50 01 DO OO02A MOVL #1, RO ; 
04 00020 RET ; 

63 D6 OO02E 3$: INCL  EDTS$A_CMD_BUF : 0715 

50 D4 00030 4$: CLRL RO : 0717 
04 00032 RET ; 


; Routine Size: 51 bytes, Routine Base: _EDTSCODE + 0000 


0718 #1 
0719 1 !<BLF/PAGE> 


; Size: 

; Run Time: 

; Elapsed Time: 
; Lines/CPU Min: 


; Lexemes/CPU-Min: 


; Memor 


Used: 
; Compila 


PL ESE/ENEGH OSE SOLD, DUE TEAL. APU PRL SEL PROTRALEDACESEL LEMG EOD ILED ERED IONE CED IA MSRC$:CHMGDIR.BLI/UPDATE=(ENH$: CHMGDIR 


51 code + 0 data bytes 


tion Complete 


18-2, -1984 


] 
EDTSCHMGDIR EDTSCHMGDIR = Look for a direction indicator 7:58:04 VAX-11 Bliss-32 V 5 
Ou 000 EDTSSCHK_DIR = look for a direction indicator 10-Sep-1984 2 93:38:93 DISKSVMSMASTER: tbo + SRCSCHMGDIR. BLI;1 age a) 
5 0731 ! END ! of module EDTSCHMGDIR © | 
$ 722 0 ELUDOM 
| 
PSECT SUMMARY 
Name Bytes Attributes 
_EDTSCODE 51 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Library Statistics 
eee Syabol§ scoesees Pages Processing 
File Total Loaded Percent Mapped Time 
~ $52 280uACB: FeEDT SRCJEDT.L32;1 377 2 8 40 00:00.2 
_$255$DUA28: CEDT.SRCIPSECTS.L32;1 2 1 5 7 00:00.1 
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